home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / MSDOS / PC Talk / PC3SC.MRG < prev    next >
Text File  |  1984-01-10  |  1KB  |  33 lines
  1.  
  2. 116 SP=0:CLIN$=STRING$(79,32) 
  3. 340 FOR I=1 TO 5:READ A$:PRINT TAB(39) VL$;A$;SPACE$(38-LEN(A$));VL$:NEXT 
  4. 391 DATA"        <Ctr>-Home for Split 
  5. 392 DATA"              Screen Operation 
  6. 517 IF TMP$="" AND SP THEN XPOS=1 
  7. 555 IF SP THEN 11000 
  8. 558 PRINT#1,B$; 
  9. 612 IF SP THEN LOCATE ROW,COL,0 
  10. 630 NEXT 
  11. 650 NEXT:GOTO 660 
  12. 660 IF SP THEN ROW=CSRLIN:COL=POS(0):LOCATE 25,XPOS,1 
  13. 661 IF PR THEN PR$=PR$+A$:GOSUB 800 
  14. 1682 IF EX=119 THEN 10000 
  15. 10000 IF SP THEN SP=0:TMP$="":LOCATE ROW,COL,1:PRINT:PRINT ELSE 10010 
  16. 10001 PRINT"===Split Screen Operation Off":BEEP:PRINT:ROW=CSRLIN:COL=POS(0) 
  17. 10002 LOCATE 25,1,0:PRINT CLIN$:LOCATE ROW,COL,1:GOTO 515 
  18. 10010 SP=-1:BEEP:PRINT:PRINT"===Split Screen Operation On":ROW=CSRLIN 
  19. 10012 COL=POS(0):LOCATE 25,1,1:GOTO 515 
  20. 11000 IF B$=CR$ THEN B$=TMP$+B$:TMP$="":LOCATE 25,1,0:PRINT CLIN$;:GOTO 558 
  21. 11020 IF B$=CHR$(27) THEN TMP$="":LOCATE 25,1,0:PRINT CLIN$;:XPOS=1 ELSE 11030 
  22. 11022 LOCATE 25,XPOS,1:GOTO 560 
  23. 11030 IF B$=BS$ AND XPOS>1 THEN TMP$=LEFT$(TMP$,LEN(TMP$)-1) ELSE 11040 
  24. 11032 XPOS=XPOS-1:GOSUB 2655:LOCATE 25,XPOS,1:GOTO 560 
  25. 11040 IF B$=BS$ AND XPOS=1 THEN 560 
  26. 11050 LOCATE 25,XPOS,1:PRINT B$;:TMP$=TMP$+B$:XPOS=XPOS+1
  27. 11055 IF XPOS>79 THEN XPOS=1
  28. 11060 GOTO 560 ' End of PC3SC.MRG.
  29. END OF TRANSFER - PRESS ENTER TO RETURN TO MENU
  30. S=XPOS+1
  31. 11055 IF XPOS>79 THEN XPOS=1
  32. 11060 GOTO 560 ' End of PC3SC.MRG.
  33. END OF TRANSF